﻿Imports System.Data
Imports System.Data.SqlClient
Imports BEGestionProyecto
Imports DLGestionProyecto

Public Class BLGPMaestroTablas
#Region "CONSULTAR"
    '*********************************************************
    'Funcion que Lista los Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLListarMaestroTablas(ByVal psMaenomTabla As String) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPMaestroTablas
            lDt = lBL.fuDLListarMaestroTablas(psMaenomTabla)
            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuBLListarMaestroTablas " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function

#End Region
#Region "ACTUALIZAR"
    '*********************************************************
    'Funcion que Agrega Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLInsertarProyecto(ByVal pBE As BEGPProyecto) As Boolean
        Try

            Dim lBL As New DLGestionProyecto.DLGPProyecto
            If lBL.fuDLInsertarProyecto(pBE) Then
                Return True
            End If
        Catch ex As Exception
            Return False
            Throw New ArgumentException("Origen : fuBLInsertarProyecto " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function


#End Region

#Region "LOS"
    Public Function fuDLListarLOS() As DataTable
        '*********************************************************
        'Funcion que Lista los Proyectos
        'fecha crea         fecha modifica         autor
        '01/02/2012         01/02/2012              JKP
        '*********************************************************
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPMaestroTablas
            lDt = lBL.fuDLListarLOS()
            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuDLListarLOS " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function
    Public Function fuDLBuscarLOSx(ByVal piLoscodigo As Integer) As DataTable
        '*********************************************************
        'Funcion que Lista los Proyectos
        'fecha crea         fecha modifica         autor
        '01/02/2012         01/02/2012              JKP
        '*********************************************************
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPMaestroTablas
            lDt = lBL.fuDLBuscarLOSx(piLoscodigo)
            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuDLBuscarLOSx " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function
#End Region
#Region "SUBLOS"
    Public Function fuDLListarSUBLOS(ByVal piLoscodigo As Integer) As DataTable
        '*********************************************************
        'Funcion que Lista los Proyectos
        'fecha crea         fecha modifica         autor
        '01/02/2012         01/02/2012              JKP
        '*********************************************************
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPMaestroTablas
            lDt = lBL.fuDLListarSUBLOS(piLoscodigo)
            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuDLListarSUBLOS " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function
    Public Function fuDLBuscarSUBLOSx(ByVal piSubloscodigo As Integer) As DataTable
        '*********************************************************
        'Funcion que Lista los Proyectos
        'fecha crea         fecha modifica         autor
        '01/02/2012         01/02/2012              JKP
        '*********************************************************
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPMaestroTablas
            lDt = lBL.fuDLBuscarSubLosx(piSubloscodigo)
            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuDLBuscarSUBLOSx " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function
#End Region
End Class
